RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE**1D**GNAME 
GGGGGGGG NN NN AAAAAA MM MM EEEEEEEEEE 
GGGGGGGG NN NN AAAAAA MM MM EEEEEEEEEE 
GG NN NN AA AA MMMM MMMM EE 
GG NN NN AA AA MMMM MM EE 
GG NNNN NN AA AA MM MM MM OEE 
GG NNNN NN AA AA MM MM MM OEE 
GG NN NN NN AA AA MM MM EEEEEEEE 
GG NN NN NN AA AA MM MM EEEEEEEE 
GG GGGGGG NN NNNN AAAAAAAAAA MM MM EE 
GG GGGGGG NN NNNN AAAAAAAAAA MM MM EE 
NN NN AA AA MM MM EE cece 
GG GG NN NN AA AA MM MM EE cece 
GGGGGG NN NN AA AA MM MM EEEEEEEEEE eee 
GGGGGG NN NN AA AA MM MM EEEEEEEEEE eee 
LL IIIIII SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL II SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII! SSSSSSSS 


Sssss 
ODONAUS WI 


SOONAOUSWN "OO ONOUS WN 


SOWBNAUEWN OC ODNAUS WN OOONOUSWNOOONOUS Wh 
tt 9 9 Sh SS Ss Sh Sh Ss Ss Ss Ss Ss SS Ss 4 IA QOOOOD 


FE ANWAWWNNAI AIR POPPIN PINUNUNNYD 2 2 SS oe 


SOOONOULS WN 


ZTITLE ‘GNAME = Get name from input string and convert it to uppercase’ 
MODULE gname ( gbenT = 'v04-000 
BLISS32C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVESJ 
= 
BEGIN 


i geeeeeeeeeneeeeeeneneeeeeeeeeetererereeetereeeeeeeeeeeeeeeeeeeneneeeeeeeeeee 
'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


® 

® 

® 

® 

4 * 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. e 
H ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 
® 

* 

te 

*® 

* 

* 


!# DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LR REAR AAA AAA REAR EAA AA RARER REARS 
' 


se 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: Collects letters and digits to construct a name. 
ENVIRONMENT: Transportable 
AUTHOR: R.W.Friday CREATION DATE: April, 1978 
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Revision History " ° ea8ee=18be PRGSHs Pea WeAlSteRe hie Oee Secacuame.eu1et™ «2h 


; : re. ] XSBTTL "Revision History' 

; 644 rk 1 ! MODIFIED BY: 

; 2 «645 44 1! 

oe 45 1! 006 REM00006 Roy Marshall 7-Jun-1984 

3; 6 64 B78 1! Modified previous fix to test for the substitution flag instead 
3 re Boe : of a hard coded dollar sign. 

; 0 $c 1! 005 REMO0005S Ray Marshall 6-Jun-1984 

3 1 050 1! Modified Xen's fix. Now it checks to see that the first 

3 ¢ 051 1! character is a letter or a dollar sign (for DSRPLUS). The 
; 2 O26 . 3 other way caused all .IFs and relate q'rectives to process 
; 4 1! a null parameter and can also ACCVIO if the user os tenered to 
3 35 054 1! pop the IF stack too many times (with .ENDIFs) with null 

; 0055 1! parameters. This was because a null parameter was rh 
3 57 Baee 1! this routine to return normal. ALL other places that cal 

; @ 0057 1! this routine test the length of the Input string first and 
; 3 0058 1! know that there is data in it. Only the call from IFIFNE 

; @& 0059 1! failed. 

.) or 0060 1! 

3 6¢ 0061 1! 004 KFA00004 Ken Alden 23-Sep-1983 

3 o7 B00¢ ! For DSRPLUS, removed first character restriction. 

; 65 0064 1! 003 REROO0003 Ron Randall 07-Mar-1983 

; 66 0065 1! Global edit of all modules. Updated module names, idents, 

; 24 Bee i copyright dates. Changed require files to BLISS library. 

; & 0068 1 !-- 

; 9069 1 


F 8 
GN GNAME = Get name from input string and convert 16-Sep-1984 00:42:38 VAX-11 BLi 
$04~500 ans Level beclerations ° 18=808-1382 90:38 § DISKSVMSMA 
3 y 9 ! ZSBTTL ‘Module Level Declarations’ 
: 7% re 1! 
HY 75 7 1 ! TABLE OF CONTENTS: 
tm . 7% 4 
3 f o : INCLUDE FILES: 
a, 699 1 LIBRARY 'NXPORT: XPORT*; ! XPORT Library 
$ st ! REQUIRE "REQ:RNODEF'; ' RUNOFF variant definitions 
i 8 U 0210 1 RIF DSRPLUS ZTHEN 
: Z U ; 1 hee REQ:DPLLIB'; ! DSRPLUS BLISS Library 
; 5 18 \ 429" ARY *REQ:DSRLIB'; ! DSR BLISS Library 
3 6 14 1 21 
. 8 15 1 
; 8688 16 1! 
3 34 i ! | EXTERNAL REFERENCES: 
: 91 0219 1 EXTERNAL 
3 4 8 0 1 flgt : flgt_definition, ! Flag characters. 
: 32 0 } i _— 


$s-32 V4.0-742 
STER: CRUNOFF . SRCJGNAME .BLI; A wa 
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PDA EPP EE 


ccc 
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PAPA AOAC OUIMIVIG 


SOONA UNE WN $$ 0 OONAUES WN (OVO ONOUSE 


EAE I AICAPIIINIAE® BE BE SEPIA at tt st kt kk kk dd td 


ee a ee ec ee ee ce ce ee a eel ee el el cl cl el el el cl cl cl el el el el ld cel cel el el ee el 
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VAX-11 
-Sep- DISKSVM 
GLOBAL ROUTINE GNAME (INPUT_STRING, OUTPUT_STRING) = 


'o4¢ 
FUNCTIONAL DESCRIPTION: 
GNAME processes an unbroken sequence of letters 
and digits, stopping when 
1) a nonletter or nondigit is found, or 
¢} the end of the INPUT_STRING is reached, or 
: ) OUTPUT_STRING is about to overflow. 
: ALL characters accepted are transferred to OUTPUT_STRING. 


i GNAME also checks to be sure that the first character is 
! indeed a letter in RUNOFF only. 


i FORMAL PARAMETERS: 


4 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

! 

: INPUT_STRING is where the name is to come from. 
The collected string of letters is left im OUTPUT_STRING. 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 


i IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 


i ROUTINE VALUE: 
i COMPLETION CODES: 


See GNCC.REQ for completion codes returned. 


SIDE EFFECTS: None 
BEGIN 
MAP 
output_string : REF fixed_string; 
BIND 


ira = input_string : REF fixed_string; 
FS_INIT (OUTPUT_STRING); 


o 
ra 
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(NOT Letter (.khar) ! First character must be a letter. 


IF 
ZIF DSRPLUS %THEN 
OR ! ora suet ttut ton flag character 
Fn) ekhar NEQ .flgt Csub_flag, flag_character 
T 


RETURN gname_no_name; 
WHILE 1 DO 
BEGIN 


IF ( NOT LETTER (.KHAR)) AND 


( NOT DIGIT (.KHAR)) 'Stop on an illegal character 


N 
RETURN GNAME_NORMAL; 
LF yrFSALENGTH (OUTPUT STRING) EQL .FS_MAXSIZE (OUTPUT STRING) 


97 138% 90: 8g: 38 VAX-11 Bliss-32 V4.0-742 


GNAME = Get name from input string and convert 4 Page 5 
DISKSVMSMASTER: CRUNOFF .SRCJGNAME .BLI; (4) 


1 
Module ~vel Declarations 1 
i (WHILE (LETTER (.KHAR) OR bight 
4 


SS 


: 


-$ 
“$ 
KHAR)) DO 
(KCNS ()); RETURN GNAME_ ); !Throw away excess characters. 


FS_WCHAR (OUTPUT_STRING, !Convert to upper case and output the character. 
(IF LOWER_LETTER (.KHAR) 


UPPER_CASE (.KHAR) ELSE .KHAR)); 


Wr —OODONOu 


Sees Ge Fe Ge Se Geese Se ee tee 
et ot od = 8 8 = 2 dD 
AOCOUMNUIUTWUM 
aw 


8 

SS 4 KCNS () 'Get next character. 

8 ; END ‘end of processing Loop. 
64 91 END; 'End of GNAME 


«TITLE GNAME GNAME = Get name from input string and co 
- IDENT \v04-000\.. 

-EXTRN FLGT, KHAR, RINTES 
~-PSECT SCODES,NOWRT,2 


003¢ 000 -ENTRY GNAME, Save R2,R3,R4,R5 : 0223 
55 000000006 EF i 000 MOVAB KHAR, R : 
50 08 AC 00 0000 MOVL OUTPUT. STRING, RO > 0261 
C AO pe 000D CLRL 12(R0) $ 
60 10 a0 0010 MOVAB 16(RO), (RO) : 
04 Ad 69 06 0014 MOVL (RO), 4(RO) : 
51 65 DO 00018 MOVL KHAR. R1 + 0263 
00000041 &F 31 D1 0018 CAP L Rl #65 ; 
0000005A BF 3} p 00 4 CHPL Rl #90 ; 
00000061 ~=&F 31 bt 99 D 1$ CHPL RI. #97 
0000007A_ = BF 3 p} 99 6 cHPL RI. #122 ; 
50 02 0 33 2$: MOVL #2, RO ; 0269 
2 04 A p0 ‘3 3$: MOVL IRA R2 + 0288 
4 C he 004 MOVAB 12(R2), R4& : 
1 06 0048 4$: MOVL KHAR, R1 : 0273 
00000041 &F i Dt a5 CHPL RI. #65 
0000005A BF } p} ; CPL RI. #90 
00000061 ~=8F 1 I é 5$: CPL Rl "97 : 
0000007A &F 3 D1 0006 CMPL RI, #122 : 
30 f D4 72 6$: CMPL = R1, #48 + 0274 
5 19 7 BLSS 7$ 3 
39 1D 7 CMPL = R1, #57 ; 
4 if 7A BLEQ = &S ; 
50 1 p 7C 7$: MOVL #1, RO : 0276 
4 O007F RET F 
08 Ad 0c AO D1 00080 Bs: CMPL 12(RO0), 8(RO) : % 


CE s/s» ssn eee a iid, 


o 
— 
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$ 


4 Ae 06 0087 ROVE FRA, _R2 ; 0281 ; 
if a K i F 9S ROVE 1ethe) 0280 ; 
00000041 &F } D4 38 CMPL =o, #65 : : 
BLSS 108 : ; 
0000005A 1 01 CMPL = RT, #90 : ; 
1¢ 15 OOOA BLE 128 : ; 
00000061 = &F 51 D1 OOOA4 10$: CMPL RI, #97 : ; 
9 19 OO00AB Biss =—s«éai' : ; 
0000007A = BF 1 b} OAD CMPL RI, #122 : : 
A 1 B4 BLEG 128 : F 
30 1 07 8 11$ CMPL =o, #48 : ; 
1D 19 0008 BLSS =s._—«*46$ : ; 
39 51 01 00088 CMPL = -R1, #57 : ; 
18 14 9 B BGTR 14$ : ; 
dS CO 12$: TSTL (R3) 3; 0281 3 
9 14 000¢ BGTR 133 : ; 
65 006 8F 9A 0004 MOV ZBL #RINTES KHAR : : 
63 1 cE O08 MNEGL #1, (R35 : ; 
C2 11 000CB BRB 9$ ; ; 
65 04 B82 9A 000CD 138 MOVZBL @4(R2), KHAR : ; 
06 =A 0g 0001 INCL  4(R2) ; ; 
63 D7 000D4 DECL (R3) : ; 
B? 11 000 BRB 9$ : ; 
50 03 DO 000D8 148:  MOVL #3, RO : ; 
04 00008 RET ; ; 
51 $5 DO 000DC 15$ MOVL _—KHAR, R1 : 0286 ; 
00000061 &F 1 D1 0000F CMPL = R1, #97 : F 
Oc 19 OOE6 BLSS 168 ; : 
0000007A =&F 1 01 O00E CMPL = R11, #122 : 
3 14 OOEF BGTR leg ; 
51 0 4 OF1 SUBL2 #32, R1 : 
04 80 1 OOF 16$:  MOVB  R1, @4(RO) : 
04 AO D6 000F8 INCL  4(RO) : 
0c Ad D6 ore INCL 12(RO) ; 
4 05 000F TSTL  (R4) : 0288 
9 14 001 BGTR 17$ ; 
65 006 8F 9A 001 MOVZBL W#RINTES, KHAR : 
64 1 cE 1 MNEGL #1, (RS ; 
9 109 BRB 18$ : 
65 04 Bg 9A 0010B 17$:  MOVZBL @4(R2), KHAR ; 
04 =A 06 10F INCL 4(R2) ; 
64 p 11¢ DECL = (R4) ; 
FF34 31 00114 188 BRW 4$ : 
; Routine Size: 279 bytes, Routine Base: S$CODES + 0000 
: 165 32 1 
s ¥ 95 1 END 'End of module 
; 16 94 0 ELUDOM 
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GN GNAM Get name from input string and convert 1b-se Sep-1984 VAX-11 Bliss-32 V 742 
900-00 Teaute | Level Declarations ° 300-138 99: $8; § Disk KSVMSMA TER -CRONOFY SRCJGNAME .BLI; PI 4 
H PSECT SUMMARY 

; Name Bytes Attributes 

; SCODES 279 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: Library Statistics 

; coccsese Syabel§ ccoceese Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBIXPORT.L32;1 9 0 0 252 0:00. 

$ Stitt Hei atehe RL16.L32;1 1348 24 1 86 $9:90:3 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GNAME/OBJ=OBJ$:GNAME MSRC$:GNAME/UPDATE=(ENH$S: GNAME) 

: Btze: 279 code + 0 data bytes 


; Lines/CPU Min: 

: loeeeetteties 1605 
pee | Used: 80 pages 

: Compilation Complete 


: un Time: 8 705. 
; essed Time: 35 7 


o 
= 


vo. 
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ND PROPRIETARY 


